home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / tori / sharedi.cst / 03070_Script_3070 < prev    next >
Text File  |  1983-01-27  |  581b  |  18 lines
  1. on chiamamenubar
  2.   global men,cisei
  3.   set cisei to true
  4.   if objectP (men) then   forget men
  5.   set men to window ("menubar")
  6.   if the machinetype < 255 then
  7.     set the filename of men to ("invenzioni:invenzio:icoinv.dir")
  8.   else
  9.     set a to char 1 of the moviepath
  10.     set the filename of men to (a & ":\invenzio\icoinv.dir")
  11.   end if
  12.   set the windowType of  window "menubar" to 3      
  13.   set s to rect (the stageLeft,the stageTop +418,the stageLeft+640,the stageTop + 480)
  14.   set the rect of window "menubar" to s
  15.   open men
  16.   moveToFront window "menubar"
  17. end 
  18.